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— DiskDefs.Mesa Edited by Sandman on August 24, 1977 9:23 AM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
AltoFileDefs: FROM "al tof iledefs" ; 

DEFINITIONS FROM AltoFileDefs, AltoDefs; 

DiskDefs: DEFINITIONS = BEGIN 

-- standard disk 
nDisks: CARDINAL ■ 1; 
nHeads: CARDINAL = 2; 
nTracks: CARDINAL ■ 203; 
nSectors: CARDINAL = 12; 

-- physical disk address 

DA: PRIVATE TYPE = MACHINE DEPENDENT RECORD [ 

sector: [0..17B], 

track: [0..777B], 

head, disk: [0. .1], 

restore: [0. . 1]]; 

-- DAs with special meaning 
InvalidDA: DA - DA[17B , 777B , 1 , 1 , 1] ; 

-- disk header 

DH: TYPE = MACHINE DEPENDENT RECORD [ 

packID: CARDINAL, 

diskAddress: DA]; 

-- file identifier 

FID: TYPE = MACHINE DEPENDENT RECORD [ 

version: CARDINAL, 

serial: SN]; 

— disk label 

DL: TYPE = MACHINE DEPENDENT RECORD [ 

next, prev: DA, 

blank: UNSPECIFIED, 

bytes: CARDINAL, 

page: CARDINAL, 

filelD: FID]; 

-- disk final status 
DFS: PRIVATE TYPE = { 

CommandCompl ete , HardwareError , 

CheckError, IllegalSector} ; 

-- disk status word 

DS: PRIVATE TYPE = MACHINE DEPENDENT RECORD [ 

sector: [0..17B], 

done: [0..17B], 

seekFailed: [0. .1], 

seeklnProgress : [0..1], 

nolReady: [0..1], 

dataLate: [0. .1], 

noTransfer : [0 . . 1] , 

checksumError : [0..1], 

finalStatus: DFS]; 



-- useful status 
DSfree: CARDINAL 
DSmaskStatus : DS 
DSgoodSLatus : DS 



configurations 

= 1; DSfake: CARDINAL = 3: DSdone: CARDINAL 

= DS[0, DSdone, 1,0, 1.1,0,1 .LAST [DFS]]; 

DS[0, DSdone, 0,0 ,0,0,0,0 , CommandCompl ete] ; 



17B; 



DSfakeStaLus: DS = DS[0 , DSfake , . , , , , , CommandCompl ete] ; 
DSfreeStatus: DS = DS[0 , DSfree , , , , , , , CommandComp 1 ete] ; 

-- disk subcommands 

DSC: PRIVATT TYPf = {DiskRead, DiskCheck, DiskWrite}; 

-- hardware disk command 

DC: PRTVAIT TYPT = MACHINr DfPrNDrNT RTCORD [ 

seal : BYTT, 

header, label, data: DSC, 

seek , exchange : [0 . . 1]] : 
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CBptr: TYPE = POINTER TO CB; 

— disk command block (label, page, and zone added) 
CB: TYPE = PRIVATE MACHINE DEPENDENT RECORD [ 

nextCB: POINTER TO CB, 

status: DS, 

command: DC, 

headerAddress: PUBLIC POINTER TO DH, 

labelAddress: PUBLIC POINTER TO DL, 

dataAddress: PUBLIC POINTER, 

normalWakeups: WORD, 

errorWakeups : WORD, 

header: PUBLIC DH, 

label: PUBLIC DL, 

page: PUBLIC CARDINAL, 

zone: PUBLIC POINTER TO CBZ]; 

nCB: CARDINAL = 3; -- minimun for full disk speed 
1CBZ: CARDINAL = SIZE[CBZ]+nCB*(SIZE[CB]+SIZE[CBptr] ) ; 

-- Note: if there are n CBs, there are n+1 entries in the 

-- cbQueue (an extra one contains a NIL to mark the end). 

-- The extra one is represented by queueVec: ARRAY [0..1) 

-- and thus is included in SIZE[CBZ], 

CBZptr: TYPE = POINTER TO CBZ; 

CBZ: TYPE = PRIVATE MACHINE DEPENDENT RECORD [ 
checkError: PUBLIC BOOLEAN, 
errorCount: PUBLIC [0..77777B], 
info: PUBLIC POINTER, 
cleanup: PUBLIC PROCEDURE[CBptr] , 
errorDA: PUBLIC vDA, 
currentPage: PUBLIC CARDINAL, 
currentBytes: PUBLIC CARDINAL, 
normalWakeups- WORD, 
errorWakeups: WORD, 

cbQueue: DESCRIPTOR FOR ARRAY OF CBptr, 
qHead, qTail: CARDINAL, 
queueVec: ARRAY [0..1) OF CBptr]; 
-- the queue vector starts at queueVec. 
-- after the queue vector there follows 
-- ARRAY OF CB, the CBs for the zone. 



-- Procedures in DisklO 

RealDA: PROCEDURE [v:vDA] RETURNS [DA]; 
VirtualDA: PROCEDURE [da:DA] RETURNS [vDA]; 

SetDisk: PROCEDURE [POINTER TO DISK]; 
GetDisk: PROCEDURE RETURNS [POINTER TO DISK]; 
ResetDisk: PROCCDURE RETURNS [POINTER TO DISK]; 

ResetWaitCell : PROCEDURE; 

SetWaitCell: PROCEDURE [POINTER TO WORD] RETURNS [POINTER TO WORD]; 

DDC: TYPE = RECORD [ 
cb: CBptr, 
ca: POINTER, 
da: vDA, 

page: PageNumber, 
fp: POINTFR TO FP, 
restore: BOOLEAN, 
action: vDC]; 

DoDiskCommand: PROCEDURE [arg:POTNTTR TO DDC]; 

RetryCount: CARDINAl = 8; 
RetryableDiskError : SIGNAL [cb:CBptr]; 
UnrecoverableDiskError: SIGNAI [cb:CBptr]; 

CBinit: TYPT = {cl ear , don tCl ear} ; 

Initial i/eCBs torage : PROCEDURE [ 
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zone:CBZptr, nC8s:CARDINAL, page: PageNumber , ini t :C8ini t] ; 

GetCB: PROCEDURE [zone:CBZptr , init:CBinit] RETURNS [cb:CBptr]; 

CleanupCBqueue: PROCEDURE [zone:CBZptr] ; 

DiskCheckError: SIGNAL [page: PageNumber] ; 

DiskRequestOption : TYPE = {swap, update, extend}; 

DiskRequest: TYPE = RECORD [ 
ca: POINTER, 
da: POINTER TO vDA, 
firstPage: PageNumber, 
TastPage: PageNumber, 
fp: POINTER TO FP, 
fixedCA: BOOLEAN, 
action, lastAction: vDC, 
signalCheckError: BOOLEAN, 
option: SELECT COMPUTED DiskRequestOption FROM 

swap => [desc: POINTER TO DiskPageDesc] , 

update => [cleanup: PROCEDURE[CBptr]] , 

extend => [lastBytes: CARDINAL], 

ENDCASE]; 

DiskPageDesc: TYPE = RECORD [ 
prev, this, next: vDA, 
page: PageNumber, 
bytes: CARDINAL]; 

SwapPages: PROCEDURE [arg:POINTER TO swap DiskRequest] 
RETURNS [page:PageNumber, byte:CARDINAL] ; 

END. 



